home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / bbs / cddk9606.zip / HEADERS.ARJ / RAFS.INT < prev    next >
Text File  |  1996-06-14  |  1KB  |  46 lines
  1.  
  2. UNIT RAFs;
  3.  
  4. { UNDOCUMENTED UNIT FOR INTERNAL USE ONLY -- USE AT YOUR OWN RISK }
  5.  
  6. {$B-} { . . . . . . . . . . . . . . . . . . . . Shortcut boolean evaluation }
  7. {$F+} { . . . . . . . . . . . . . . . . . . . .  Force far calls for safety }
  8. {$I-} { . . . . . . . . . . . . . . . . . . . Disable input/output checking }
  9. {$O+} { . . . . . . . . . . . . . . . . . . Allow this unit to be overlayed }
  10. {$Q-} { . . . . . . . . . . . . . .  Do not generate overflow-checking code }
  11. {$R-} { . . . . . . . . . . . . . . . . Do not generate range-checking code }
  12. {$S-} { . . . . . . . . . . . . . . . . Do not generate stack-checking code }
  13. {$X+} { . . . . . . . . . . . Extended syntax for pChars and function calls }
  14.  
  15. {#Halt}
  16.  
  17. INTERFACE
  18.  
  19. TYPE
  20.  
  21.   { Random Access File Object }
  22.  
  23.   RAF_Type = OBJECT
  24.     Count      : Word;
  25.     Current    : Word;
  26.     Data       : Pointer;
  27.     ErrorHalt  : Boolean;
  28.     IOResult   : Word;
  29.     RAF        : FILE;
  30.     Size       : Word;
  31.     PROCEDURE Close;
  32.     FUNCTION  EOF:Boolean;
  33.     FUNCTION  FileSize:LongInt;
  34.     PROCEDURE Get(Idx:Word);
  35.     PROCEDURE Next;
  36.     PROCEDURE Put(Idx:Word);
  37.     PROCEDURE Reset(FileSpec:pChar; Sz:Word; Rec:Pointer; FM:Byte; EH:Boolean);
  38.     PROCEDURE Rewrite(FileSpec:pChar; Sz:Word; Rec:pointer; FM:Byte; EH:Boolean);
  39.     END;
  40.  
  41. IMPLEMENTATION
  42.  
  43. { The source code is available upon registration. }
  44.  
  45. END.
  46.